home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / break.dia.ref < prev    next >
Text File  |  1999-09-16  |  2KB  |  157 lines
  1.  
  2. // for in macro
  3.  
  4. //--------------------------------------
  5.  
  6. deff('[k]=tt1()','k=0,for i=1:5 ,k=k+1;if k=3 then break,end,end,k=k+1')
  7.  
  8. if tt1()<>4 then bugmes();quit;end
  9.  
  10. comp(tt1)
  11.  
  12. if tt1()<>4 then bugmes();quit;end
  13.  
  14. clear tt1
  15.  
  16.  
  17. deff('[k]=tt1()',[
  18. 'k=0,';
  19. 'for i=1:5 ,';
  20. '  k=k+1;';
  21. '  if k=3 then break,end,';
  22. '  if k=-1 then 1,end,';
  23. 'end,k=k+1'])
  24.  
  25. if tt1()<>4 then bugmes();quit;end
  26.  
  27. comp(tt1)
  28.  
  29. if tt1()<>4 then bugmes();quit;end
  30.  
  31.  
  32. clear tt1
  33.  
  34.  
  35. deff('[k]=tt1()',[
  36. 'k=0,';
  37. 'for i=1:5 ,';
  38. '  k=k+1;';
  39. '  if k=3 then break,end,';
  40. '  for j=1:5,j,end,';
  41. 'end,';
  42. 'k=k+1'])
  43.  
  44. if tt1()<>4 then bugmes();quit;end
  45.  
  46. comp(tt1)
  47.  
  48. if tt1()<>4 then bugmes();quit;end
  49.  
  50.  
  51. // while
  52.  
  53. //----------------------------------------
  54.  
  55. deff('[k]=tt1()','k=0,while k<10 ,k=k+1;if k=3 then break,end,end,k=k+1')
  56. Warning :redefining function: tt1                     
  57.  
  58.  
  59. if tt1()<>4 then bugmes();quit;end
  60.  
  61. comp(tt1)
  62.  
  63. if tt1()<>4 then bugmes();quit;end
  64.  
  65. clear tt1
  66.  
  67.  
  68. deff('[k]=tt1()',[
  69. 'k=0,';
  70. 'while k<10 ,';
  71. '  k=k+1;';
  72. '  if k=3 then break,end,';
  73. '  if k=-1 then 1,end,';
  74. 'end,k=k+1'])
  75.  
  76. if tt1()<>4 then bugmes();quit;end
  77.  
  78. comp(tt1)
  79.  
  80. if tt1()<>4 then bugmes();quit;end
  81.  
  82.  
  83. clear tt1
  84.  
  85.  
  86. deff('[k]=tt1()',[
  87. 'k=0,';
  88. 'while k<10 ,';
  89. '  k=k+1;';
  90. '  if k=3 then break,end,';
  91. '  for j=1:5,j,end,';
  92. 'end,';
  93. 'k=k+1'])
  94.  
  95. if tt1()<>4 then bugmes();quit;end
  96.  
  97. comp(tt1)
  98.  
  99. if tt1()<>4 then bugmes();quit;end
  100.  
  101. //
  102.  
  103. // keyboard mode
  104.  
  105. //------------------------
  106.  
  107. k=0;while k<10 ,k=k+1;if k=3 then break,end,end,k=k+1;
  108.  
  109. if k<>4 then bugmes();quit;end
  110.  
  111.  
  112. k=0;while k<10 ,k=k+1;if k=3 then break,end,end,
  113.  
  114. k=k+1;
  115.  
  116. if k<>4 then bugmes();quit;end
  117.  
  118.  
  119. k=0;for  i=1:5 ,k=k+1;if k=3 then break,end,end,k=k+1;
  120.  
  121. if k<>4 then bugmes();quit;end
  122.  
  123.  
  124. k=0;for  i=1:5 ,k=k+1;if k=3 then break,end,end,
  125.  
  126. k=k+1;
  127.  
  128. if k<>4 then bugmes();quit;end
  129.  
  130.  
  131. //
  132.  
  133. k=0;while k<10,if k=0 then break,end,k=k+1;end,k=k+1;
  134.  
  135. if k<>1 then bugmes();quit;end
  136.  
  137.  
  138. k=0;while k<10,if k=0 then break,end,k=k+1;end,
  139.  
  140. k=k+1;
  141.  
  142. if k<>1 then bugmes();quit;end
  143.  
  144.  
  145. k=0;for i=1:5,if k=0 then break,end,k=k+1;end,k=k+1;
  146.  
  147. if k<>1 then bugmes();quit;end
  148.  
  149.  
  150. k=0;for i=1:5,if k=0 then break,end,k=k+1;end,
  151.  
  152. k=k+1;
  153.  
  154. if k<>1 then bugmes();quit;end
  155.  
  156.  
  157.